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PROCEDURES LISP D'ANALYSE * 
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RESUME : 

L'ARTICLE DECRIT UN ENSEMBLE ΡΕ FONCTIONS 
LISP 510 DESTINE A LIVRER, A PARTIR D'UN 
ENSEMBLE DE HAUTEURS DONNE, LES RELATIONS 
HARMONIQUES LES PLUS ELEMENTAIRES, 
A SAVOIR : DOMINANTE, SOUS-DOMINANTE, 
TRITON, NAPOLITAINE, SENSIBLE, SOUS FORME 
PUREMENT SYMBOLINUE, 

L'APTICLE A ETE CORRECTEMENT COMPILE ΕΤ 
INTERPRETE PAR LE SYSTEME LISP 510, 


L'ENSEMBLE DE CES FONCTIONS CONSTITUE UNE ZONE DE 
SERVICE D'UN PROGRAMME PLUS IMPORTANT D'ANALYSE 
DE FONCTIONS HARMONI OUES DANS L'OEUVRE DE CLAUDE 
DEBUSSY, 

ΕΤΑΝΤ DONNE UN ENSEMBLE DE ΒΕΕΙ͂ΟΝ5 HARMONIQUES ET 
LEURS PEPRESENTANTS REPERES, L'EMPLOI CONSTANT DE 
L'OSCILLATION ENTRE -NOM- ET -V ALEUR- DE HAUTEUR SE 
REVELE FORT IMPORTANT DANS LE TRAVAIL COMPOSITIONNEL 
DE CE MUSICIEN, TOUTE ANALYSE EN PROFONDEUR SE 
MEPRENDRAIT A N'EN PAS TENIR COMPTE, 

POUR L'AUTOMATISATION (ΡΑΡΤΙΕΙΙΕ) DES PROCEDURES 
D'ANALYSE, LE LANGAGE LISP A ETE CHOISI POUR LA 
FACILITE QU'IL OFFRE DE RENDRE TOUT OBJET SUSCEPTIBLE 
DE RECEVOIR DES VALEURS (ΤΑΝΤ SUR SA P-LISTE QUE 
SUR LA A-LISTE), | 


ON DISTINGUERA POUR CHAQUE HAUTEUR DEUX TYPES 
DE -NOMS- : . NUMERIQUE (MODULO 12) 
. LITERAL 
REPRESENTES PAR LES DEUX LISTES DE PROPRIETES 
-1-L ET -2-ιί. 
CES CORRESPOND ANCES ONT ΕΤΕ CHOISIES POUR TRAITER 
CONVENABLEMENT LES PHENOMENES DE SYNONYMIE 
(ΕΧ: DO ἢ - RE BEML), 
POUR CHAQUE LITEPALE ON UTILISERA ALTERNATIVEMENT 
, UN ATOME (DANS LES CAS DE NON ALTERATION) 
. UNE PAIRE ΡΟΙΝΤΕΕ (ALTERATION . ATOME) 


NOTA : 5} pEPRESENTE LE BEMOL, 2 


᾽ 
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= 


(ΜΟΡΕ 2) 
RPLACA (C 
-D -L 
(DO SOL PE LA MI SI FA DO) 
) 
RPLACA « 
-S-L 
(DO PE MI FA SOL LA SI DO) 
) 
RPLACA ÈC 
-1 -L 
((9 (00 ( , SIDD) C (6 , DO) Gí , ΒΕ))) 
(2 (RED G CGE αι RED G: , MIDD) G# (MI Œ., FA))) 
(5 CG. MID FAD) (6 (Ω͂ , ΕΑ) CŒ , sOL))) G CsoL )) 
(8 CCH , soL) Οἱ κ LA))) (ο CLA)) 
i (10 CCH , LAD) CŒ , SI))) (11 (51 Οἱ , DO)))) 
RPLACA C 
= 2 =L 
CCH , 51) , 0) CDO , 0) CCH , DO) , 1) 
CC ΡΕ), 1) CPE 2) (4 , ΡΕ) , 3) CŒ, MI) , 3) 
CC , FAD) 8) (ΜΙ αι Βλ (64 , MI) , 5) CFA. 5) 
CC αι ΕΑ) αι 6) (Οἱ , 5ος} , 6) (ίσοι , 7) 
CCH , SOL) , 8) (Οἱ , LAJ) 8) CLA. 9) 
Cü , LAD 10) {0 , SI) , 10) (51 , 11) 
(ς αι DOS αι 1122) 
) 
DEFINE CC 
Σ ΕΤΑΝΤ DONNE UNE LITERALE, P-1-L LIVRE L'ENTIER 


DANS (0, 11) CORRESPONDANT DANS LA LISTE -1-L, 2 
(Ρ-ἠ1--ι. 
(LAMBDA (X) 


(CDR CSASSOC X -1-L>)>))) 


; ETANT DONNE UN ENTIER PRIS DANS L 'INTERVALLE 
(ο, 112, P-2-L LIVRE LA LISTE DES LITERALES 
ASSOCIEES A CET ENTIER DANS LA LISTE -2-L, 

EN FAIT P—-2-=L EST UNE GENERALISATION DE 
CSASSOC X L FN) X ETANT UNE S-EXPRESSION 


ΩΙ ΕΙ ΟΟΝΟυΕ. ; 
(P-2-L 

CLAMBDA (X) 
(CDP (OR 

CSASSCC X -2--ι) 

CPROG CY) 
CSETO Y —-2-—L D 
A (ΑΝΩ 


CEQUAL X CCAAR Υ)) 
CRETURN CCAR Y)D) 
CSETQ Y (2βΡ Υ)) 
(60 A2))))) 
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CABS 
CLAMBDA (X) 
(COND 
(στ X 0) xX) 
(T DIFFE? 9 XDD) 


; CETTE FONCTION A Ρουρ ARGUMENTS : 
(NOM1 NOM2 NUMI NUM2 LISTE-REPERE)D 
ELLE VEPIFIE SI . DEUX NOMS SATISFONT 
A LA RELATION NUMERIQUE: 
NUMI = ABS (ΝΑΙ.-ΝΟΜΙ - VAL-NOM2) 
. LES DEUX NOMS EN TANT QUE 
COUPLE DE LITERALES FORMENT OU NON UNE SOUS-SUITE 
DE LA LISTE REPERE (PAR MATCHING LITERAL, AU 
MOYEN DE LA FONCTION CSQ), 
(EX: MALGRE LES MEMES VALEURS NUMERIQUES 
LE COUPLE DO# - LA BEML N'EST PAS UNE QUINTE),; 
CIS? 
CLAMBDA (X Y M N L Z) 
CPROGN 
CSETQ Z CABS (DIFFER (P-2-L X) (P-2-L Y)))) 
CCOND 


22222) 


ΣΠΑΡΡΕΙ 5 `: 
l , BIEN QUE GET SOIT EVIDEMMENT UNE SUBR, VOICI 
SA DEFINITION ΕΝ S-EXPRESSIONS: 
(GET (LAMBDA (X Y) (COND 
CCNULL X)) 
CES CCAR X) Y) 
CCADR X3) 
(T (GET CCDR X) Y)) ))) 
z , EN LISP 510, SI -τους- LES PREDICATS 
D'UN COND S'EVALUENT EN NIL, LA VALEUR DE COND 
EST ALORS NIL, ET NE PROVOQUE PAS DE DIAGNOSTIC 
D'ERREUR, 
3 , UNE FONCTION PEUT OŒOMPORTER A L'APPEL 
- PLUS D'ARGUMENTS QUE PREVYU. ILS SERONT 
EVALUES MAIS NON TRANSMIS. 
- MOINS QUE PREVU : LES ARGUMENTS ABSENTS 
SERONT PA” DEFAUT EVALUES A NIL, 


LA FONCTION CSA , οἱ LE COUPLE (X1 Y1) EST 
ACCEPTABLE COMME ELEMENT DE LA RELATION SUR LA 
LISTE L, Ὁ AMENE -EN VALEUR CE COUPLE, CONVE- 

NA BLEMENT ORDONNE, ; 


7 
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t= 


CESR 
(LAMBDA (L X1 y1) 
(nno GN 
CSETO X1 (COND 
((ΑΤΟΜ ΧΙ} ΧΙ} 
(T (ςΟπ XIDD 
(ςΕτω Y1 CCOND 
CCATON Y1) Y1) 
(T ῶῃρ Υ1)))) 
C COND 
(«ο (GET L X1) Y1) 
(LIST X YD 
((Εα (GET L Y1) X1) 
CLIST Y XDDD 
; 21S? APPLInUE LA FONCTION F AUX ARGUMENTS 
X EI Y.; 
(2157 
(LAMBDA (X Y F) 
CPROGN 
(5Ετο X (F X YD)) ` 
( COND 
(X (LIST CCADR X) CCAR χΧ))))))ὶ) 
; VOICI LE GROUPE DES FONCTIONS 
D QUI DOMINANTE 
N CO2PESPONDENT NAPOLITAINE 
IS? -T RESPECTIYEMENT TRITON 
SD AUX SOU S-DOMINANTE 
S P3ƏEDICATS : SENSIBLE ; 
CIS? -D 


(LAMBDA (X Y) 
CIS? X Y 5 7 -D-L))) 
CIS? -N 
CLAMBDA (X Y) 
(2152 X Y CQUOTE 15?-9)))) 


CIS? -T 
(LAMBDA (X Y) 
(COND 
((ἑ9 6 CABS (DIFFE? (P-2-L X) (P-2-L Y)))) 
(LIST X Y))))) 
(152-«ρ 


CLAMBDA (X Y) 
(2152 X Y (nUOTE ις2-0)))) 
CIS? -=S 
CLAMBDA (X Y) 
CIS? X Y 1 11 -5-L))) 


http://www.artinfo-musinfo.org Artlnfo Muslnfo # 13, 1972, page 5 / 23 


(Χ-ΦγΕΙ. 
C(LAMBDA (F NSH Y Z) 


(ΡΡΌΩΝ 
CSETO Z (F CCAR M) CCAR N)D) 
CAND 
Z 
(SET NSH {σος Z Υ)))))ὶ) 
C$ RELATIONS 


CLAM8BDA (L) 
CPROG (M N L-D L—SD L-T L-N L-5) 
(ΤΕΡΡΡΙ) 
(5Ετο M L) 
A ( AND 
(NULL COR M)) 
CRETURN CEDITL))) 
CSETA N COR M)) 
B (X-ŞREL (QUOTE IS?-D) CKQUOTE L-D) L-D) 
(X-$REL (NUCTE IS?-SD) (QUOTE L-SD) L-SD) 
(X-$REL (QUOTE Ις2-Ν} CNUOTE L-N) L-N) 
(X-SPEL ζΩυοτε IS?-T) (QUOTE L-T) L-T) 
(X-SPEL CQUOTE IS2-S) CQUOTE L-S) L-5) 
C AND | 
CSETO N (CD: NDD (GC Β)) 
(5ΕΤΩ M (CDR M)) 
(€O ADD) 
(ED ITL 
CLAMEDA Ο 
CPROGN 
CPRINT CQUOTE L-D)) 
CPRINT L-D) 
(ΡΕΙΝΤ CQUCTE L-SD)) 
CPRINT L-SD) 
CPRINT CQUOTE L-T)) 
(ΡΡΙΝΤ L-T) 
CPRINT CDUOTE L-N)) 
CPRINT L-N) 
CPRINT CQUOTE L-s)) 
τ (Ρ21ΝΤ L-S)))) 
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sps 


ŞNELATIONS ((DO "E MI FA SOL LA SID) 


L-D 

C C MJ SI ) CLAMI ) C 2E LA ) C SOL RE ) C DO SOL ) ς FA DO 
2) 

L -SD 

C C SI ΜΙ ) ( MI LA ) CLA RE ) C RE SOL ) C SOL DO ) C DO FA 
> D 

ι -τ 

C CFA SI > > 

L -N 

C ( FAMI ) C DO SI >D ὃ 

k =S 

C C MI FA ) C SI DO > ὃ 


z *D O X DEBUSSY : NUAGES , MES 1 ; 


ΦΣΕΙΛΤΙΟΩΝς (651 Gi κα ΓΑ) Œ a, DOD MI  , SID RE Q , LA) LA)) 


L -Ώ 

C C 2E LA ) K LA MI ) (Y GC # , FA ) CH., DD 2 ) C MI SI >) CÇ 
SI C # , FA > )) 

L. —- SD 

C CLA 2E ) CMILAD CCH.. DOD C ü , FA) 2 Ç SI MI 2 C€ (Ç 
lf ο FA ) SI } >) 

l. = T 

CÇ (C MI (ñ , LADD CME CEH, SI } ) ὃ 

L-N | 

ο ( (“ , 51 )LA 2 (PE CH. DODD C€ SI C # , LA >D >D } 
L-S 

C CLA ο %* a, SEDD (C Ct 5δοδβεὂδλςς ,LA DS SI ὃ ὃ 
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NOTE 
MALGRE SON ΧΕΧΤΒΕΜΕΝ SIMPLICITE, JE SUIS TOUT A FAIT 
CONSCIENT DE LA DIFFICULTE DE LECTURE ΡΕ CE PROGRAMME 
POUR LES PERSONNES PEU FAMILIERES AVEC LE LANGAGE LISP. 
IL EST CLAI? QUE CETTE DIFFICULTE EST CHRONIQUE. 
RESTE QU'APRES UN CERTAIN TEMPS D'ACCOUTUMANCE, 
L'ELEGANCE ET LA CONCISION DE CE LANGAGE DEVIENNENT 
FRAPPANTES ET PERMETTENT LA NOTATION ET L'EXECUTION 
DE PROCESSUS FORT LOURDS A EXPRIMER AUTREMENT, 
DE PLUS, LE PROGRAMMEUR D'EXPERIENCE Y RECONNAITRA 
A COUP SUR LA FACILITE BIEN CONNUE QUI LUI FAIT 
SOUVENT PPEFEPER UN LANGAGE MACHINE COMME SUPPORT 
D'EXPRESSION DE SES ALGORITHMES, A SAVOIR L'ACCES 
DYNAMIQUE A TOUS LES ORJETS, EN PARTICULIER POINTEURS 
(TRAIT QUE PL/1 POSSEDE EN PARTIE) ET DONNEES EXECUTABLES 
I.E. PROGRAMMES, 
ENFIN, EN CE QUI CONCERNE LES MUSICIENS, ILS 
PRENNENT A CE LANGAGE UN PIEO CERTAIN, 
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